function fig_paper_equil(delta_grid, dq_Fdd, q_F, s_star, T_star, ...
    alpha_F_star, q_T, q_T_F, E_tax_F, E_tax_T_F, E_MC_tax_F, E_MC_tax_T_F,max_MC_tax, optfig)

if optfig.plotfig == 1
    
    [fontname,~,lw,folder,color,style,marker,markersize,fontsize_tit,fontsize_ax,fontsize_lab,fontsize_leg] = fn_optfig(optfig);
    
    f0 = figure('Units','inches','Position',[0 0 12 4]);
    
    subplot(1,2,1)
    plot(delta_grid,E_MC_tax_F,'Color',color{1},'LineStyle',style{1},'LineWidth',lw); hold on;
    plot(delta_grid,E_MC_tax_T_F,'Color',color{2},'LineStyle',style{2},'LineWidth',lw); hold on;
%     title('Marginal Cost','interpreter','latex','FontSize',fontsize_tit,'FontName',fontname)
    xlabel('Deposit Insurance ($\delta$)','interpreter','latex','FontSize',fontsize_lab,'FontName',fontname)
    grid; axis tight; box off;
    legendCell = {'$E_{s}^{F}\left[\kappa^{\prime}\left(T\left(s\right)\right)\right]$','$E_{s}^{F}\left[\left.\kappa^{\prime}\left(T\left(s\right)\right)\right|T\left(s\right)>0\right]$'};
    legend(legendCell,'interpreter','latex','FontSize',fontsize_leg,'FontName',fontname,'Location','best')
    legend boxoff
    xlim([0,max(delta_grid)])
    
    subplot(1,2,2)
    plot(delta_grid,q_T,'Color',color{1},'LineStyle',style{1},'LineWidth',lw); hold on;
    plot(delta_grid,q_T_F,'Color',color{3},'LineStyle',style{2},'LineWidth',lw); hold on;
%     title('Probabilities','interpreter','latex','FontSize',fontsize_tit,'FontName',fontname)
    xlabel('Deposit Insurance ($\delta$)','interpreter','latex','FontSize',fontsize_lab,'FontName',fontname)
    grid; axis tight; box off;
    legendCell = {'$q^{T_{+}}$', '$q^{T_{+}|F}$'};
    legend(legendCell,'interpreter','latex','FontSize',fontsize_leg,'FontName',fontname,'Location','best')
    legend boxoff
    xlim([0,max(delta_grid)])
    
    name = 'paper_conditional_MC_q';
    print(f0,'-depsc','-painters','-noui','-r600',[folder,name,'.eps'])
    
    if optfig.close == 1; close(who('f')); end
    
end
